home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / egagraph.arc / EGADEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-07-23  |  1.3 KB  |  63 lines
  1. program EGADemo;
  2.  
  3. (*
  4.  These routine is designed to be called from Turbo Pascal.
  5.  It has been tested on both EGA and 640x480 modes on the
  6.  Video 7 graphics board. If you find a way to make it faster,
  7.  let me know.
  8.  
  9.  James Billmeyer
  10.  Soft-Touch Computer Systems
  11.  7716 Balboa Blvd., Unit D
  12.  Van Nuys, Ca. 91406
  13.  (818) 781-4400
  14. *)
  15.  
  16.   var
  17.     i,j,k : integer;
  18.  
  19.   procedure SetEGAMode;
  20.  
  21.   BEGIN
  22.     INLINE($b8/$10/$00/$cd/$10);
  23.   END;
  24.  
  25.   PROCEDURE Plot(x,y,Color : INTEGER); External 'PLOT.BIN';
  26.  
  27.   PROCEDURE Line(x1,y1,x2,y2,color : integer); External 'LINE.BIN';
  28.  
  29.   PROCEDURE Box(x1,y1,x2,y2 : INTEGER; Fill : BOOLEAN; Color : INTEGER); External 'BOX.BIN';
  30.  
  31.  
  32. begin
  33.   clrscr;
  34.   SetEGAMode;
  35.   box(0,0,639,349,true,1);
  36.   box(5,5,639,349,true,2);
  37.   box(10,10,600,300,true,3);
  38.   box(15,15,550,250,true,4);
  39.   box(20,20,500,200,true,5);
  40.   box(40,40,450,150,true,6);
  41.   box(60,60,400,130,true,7);
  42.   box(80,80,350,100,true,8);
  43.   for j := 1 to 16 do
  44.   begin
  45.     for i := 0 to 639  do
  46.       begin
  47.         line(349,0,i,349,j + 2);
  48.       end;
  49.     for i := 0 to 639  do
  50.       begin
  51.         line(i,0,349,349,j + 3);
  52.       end;
  53.     for i := 0 to 349  do
  54.       begin
  55.         line(0,150,639,i,j + 4);
  56.       end;
  57.     for i := 0 to 349  do
  58.       begin
  59.         line(639,150,0,i,j + 5);
  60.       end;
  61.   end;
  62.   textmode(C80);
  63. end.